home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / D-G / Dorothy'sPascalApp.cpt / BetterContracM2.Pas next >
Encoding:
Pascal/Delphi Source File  |  1988-04-17  |  1.4 KB  |  61 lines  |  [TEXT/TPAS]
  1. program MuscleContracted;
  2.     {U$-}
  3.     uses
  4.         MemTypes,QuickDraw,OSIntF,ToolIntf;
  5.    
  6.  var
  7.   ArcRect : rect;
  8.   OvalRect : rect;
  9.   NumbA : integer;
  10.   Count : integer;
  11.   myPort:GrafPort;
  12.   r:rect;
  13. begin
  14.  InitGraf(@thePort);
  15.  OpenPort(@myPort);
  16.  FillRect(myPort.portBits.Bounds,white);
  17.  PenPat(black);
  18.  PenSize(4,5);
  19.  SetRect(r,2,2,508,338);
  20.  FrameRect(r);
  21.  
  22.  PenSize (1,1);
  23.  MoveTo(100, 119);{move cursor to these coordinates}
  24.  LineTo(300,119);{draw line from 70H to 390H}
  25.  MoveTo(100, 200);{move cursor to these coordinates V 200}
  26.  LineTo(300,200);{draw line from 70H to 390H and 200V}
  27.  
  28.  {--------------------------------}
  29.  PenSize(5,5);
  30.  SetRect(ArcRect,250,119,350,200);
  31.  SetRect(OvalRect,215,120,315,200);
  32.  PaintOval(ArcRect);
  33.  PenPat(White);
  34.  PaintOval(OvalRect);
  35.  
  36.  for count := 1 to 2 do
  37.       begin
  38.           OffSetRect(ArcRect, -65,0);
  39.           OffSetRect(OvalRect, -65,0);
  40.           PenPat (Black);
  41.           PaintOval(ArcRect);
  42.           PenPat (White);
  43.           PaintOval(OvalRect);
  44.       end;
  45.       
  46.         PenPat(black); {Set Z lines}
  47.         PenSize(2,2);
  48.         SetRect(ArcRect,75,119,175,200);
  49.         FrameArc(ArcRect,0,180);
  50.             for count := 1 to 2 do
  51.                 begin
  52.                 OffSetRect(ArcRect,65,0);
  53.                 FrameArc(ArcRect,0,180);
  54.                end;
  55.       
  56.  PenPat(Dkgray);
  57.  SetRect(OvalRect, 60,119,160,201);
  58.  PaintOval(OvalRect);
  59.  ReadLn
  60.  
  61. end.